home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / blackjack (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  289 lines
  1. 1 REM ***************
  2. 2 REM
  3. 3 REM  BLACKJACK 1.4
  4. 4 REM
  5. 5 REM ***************
  6. 6 REM****TRADUIT PAR  Y.BOUDREAULT
  7. 10 S9$="[193][218][211][216]"
  8. 20 C8$="23456789TJQKA"
  9. 30 C9$=" 2 3 4 5 6 7 8 91010101011"
  10. 40 FORI=1TO39:ER$=ER$+" ":NEXT
  11. 50 FORI=1TO39:ER$=ER$+"[157]":NEXT
  12. 60 DN$=""
  13. 80 GOSUB57000
  14. 100 PRINT"[147]
  15. 500 [134]C(52),P(10),D(10)
  16. 600 [134]S$(52),C$(52)
  17. 1100 [141]24000
  18. 1200 T[178]0
  19. 1500 J8[178]J
  20. 1600 [139]A9[179]4[167]2200
  21. 1800 [141]24000
  22. 2200 [139]J[179]42[167]2700
  23. 2400 [141]24000
  24. 2700 [153]DN$;ER$"PLACE TA MISE ";
  25. 2800 [133]B1
  26. 2900 K$[178]B$
  27. 3000 [139]B1[178]0[167]23000
  28. 3100 [139]B1[177]0[167]3700
  29. 3300 [141]24000
  30. 3600 B1[178][171]B1
  31. 3700 [139]B1[177][178]1[167]4000
  32. 3800 [153]ER$"LA MISE MINIMUM EST DE $1"
  33. 3900 [137]1500
  34. 4000 [139]B1[179][178]25000[167]4400
  35. 4005 [139]M1[178]1[167]40020
  36. 4100 [153]ER$:[153]ER$:[153]ER$"LA MAISON LIMITE LA MISE A $25000."
  37. 4200 [137]2700
  38. 4400 P[178]0:D[178]0:P9[178]0:D9[178]0
  39. 4500 V[178]0
  40. 4900 H[178]0
  41. 5000 [153]"LOAD
  42. 5050 M1=1
  43. 5100 GOSUB30000
  44. 5300 GOSUB31300
  45. 5400 GOSUB56000
  46. 5500 J1=J
  47. 5550 M1=2
  48. 5600 GOSUB30000
  49. 5800 GOSUB31300
  50. 5900 GOSUB36000
  51. 6000 IFP=21THEN6600
  52. 6100 IFD<21THEN8000
  53. 6130 M1=1
  54. 6150 GOSUB36000
  55. 6200 PRINTDN$""ER$"LA TABLE A  BLACKJACK"
  56. 6500 GOTO21500
  57. 6600 M1=1
  58. 6610 GOSUB36000
  59. 6620 IFD<21THEN7100
  60. 6700 PRINTDN$""ER$"NOUS AVONS   BLACKJACK"
  61. 7000 GOTO20600
  62. 7100 PRINTDN$""ER$"TU AS  BLACKJACK"
  63. 7400 B1=1.5*B1
  64. 7500 GOTO20900
  65. 8000 IFP<22THEN9200
  66. 8200 PRINTDN$""ER$"TU AS DEFONCE !"
  67. 8450 M1=1
  68. 8500 GOSUB36000
  69. 8600 M1=2
  70. 9100 GOTO21500
  71. 9200 IFV=0THEN9400
  72. 9300 GOTO17600
  73. 9400 PRINTDN$;ER$"UNE AUTRE CARTE ???? ";
  74. 9600 PRINT"?[157][146]";:FORI=1TO150:NEXT
  75. 9650 PRINT" [157]";:FORI=1TO150:NEXT
  76. 9670 GETA$:IFA$=""THEN9600
  77. 9700 IFA$="O"THENPRINT"OUI":GOTO14900
  78. 9800 IFA$="D"THENPRINT"DOUBLE":GOTO14700
  79. 9900 PRINT"NON"
  80. 10100 GOTO17600
  81. 14700 B1=2*B1
  82. 14800 V=1
  83. 14900 K$=B$
  84. 14950 M1=M1+1
  85. 15000 GOSUB30000
  86. 15200 GOTO8000
  87. 17600 M1=1
  88. 17650 GOSUB36000
  89. 17660 M1=2
  90. 17700 IFD>16THEN20000
  91. 17750 M1=M1+1
  92. 17800 GOSUB31300
  93. 17900 GOSUB36000
  94. 18000 GOTO17700
  95. 20000 IFD<=21THEN20400
  96. 20100 PRINTDN$""ER$"LA TABLE[160]A DEFONCE ---TU GAGNES"
  97. 20300 GOTO21100
  98. 20400 IFD<PTHEN20900
  99. 20500 IFD>PTHEN21500
  100. 20600 PRINTDN$""ER$"C'EST UN  PUSH"
  101. 20800 GOTO21800
  102. 20900 PRINTDN$""ER$"TU  GAGNES"
  103. 21100 T=T+B1
  104. 21200 GOTO21800
  105. 21400 GOSUB34800
  106. 21500 PRINTDN$""ER$"TU  PERDS"
  107. 21700 T=T-B1
  108. 21800 IFT>0THEN22200
  109. 21900 IFT<0THEN22400
  110. 22000 PRINT"TU EN EST QUITTE MAINTENANT"
  111. 22100 GOTO1500
  112. 22200 PRINT"TU AS MAINTENANT  $";T
  113. 22300 GOTO1500
  114. 22400 PRINT"TU ME DOIS MAINTENANT $";-T
  115. 22500 GOTO1500
  116. 23000 PRINT"[147]
  117. 23050 [139]T[178]0[167]23400
  118. 23100 [139]T[179]0[167]23600
  119. 23200 [153]"FELICITATIONS TU GAGNES $";T
  120. 23300 [137]23700
  121. 23400 [153]"TU AS BRISE L'EGALITE"
  122. 23500 [137]23700
  123. 23600 [153]"TANT PIS...TU PERDS  $";[171]T
  124. 23700 [153]"MERCI D'AVOIR JOUE AVEC MOI"
  125. 23800 [128]
  126. 24000 [143] *** SHUFFLING ROUTINE
  127. 24100 [153]DN$;ER$"JE BRASSE LES CARTES"
  128. 25000 [129]I[178]1[164]4
  129. 25100 [129]J[178]1[164]13
  130. 25200 W1[178]13[172](I[171]1)[170]J
  131. 25300 S$(W1)[178][202](S9$,I,1)
  132. 25400 C$(W1)[178][202](C8$,J,1)
  133. 25500 C(W1)[178][197]([202](C9$,2[172]J[171]1,2))
  134. 25600 [130]J
  135. 25700 [130]I
  136. 25800 [129]I[178]1[164]52
  137. 25900 J[178]52[172][187](1)[170]1
  138. 26000 TT$[178]S$(I)
  139. 26100 S$(I)[178]S$(J)
  140. 26200 S$(J)[178]TT$
  141. 26300 TT$[178]C$(I)
  142. 26400 C$(I)[178]C$(J)
  143. 26500 C$(J)[178]TT$
  144. 26600 TT[178]C(I)
  145. 26700 C(I)[178]C(J)
  146. 26800 C(J)[178]TT
  147. 26900 [130]I
  148. 29400 A9[178]0
  149. 29500 J[178]0
  150. 29600 J1[178]2
  151. 29700 J8[178]0
  152. 29800 [142]
  153. 30000 J[178]J[170]1
  154. 30100 P(M1)[178]J
  155. 30200 [139]C(J)[179]11[167]30600
  156. 30300 P9[178]P9[170]1
  157. 30400 A9[178]A9[170]1
  158. 30600 P[178]P[170]C(J)
  159. 30700 [139]P[179]22[167]31100
  160. 30800 [139]P9[178]0[167]31100
  161. 30900 P[178]P[171]10
  162. 31000 P9[178]P9[171]1
  163. 31100 [153]DN$""
  164. 31150 [137]39000
  165. 31300 J[178]J[170]1
  166. 31400 D(M1)[178]J
  167. 31500 [139]C(J)[179]11[167]31900
  168. 31600 D9[178]D9[170]1
  169. 31700 A9[178]A9[170]1
  170. 31900 D[178]D[170]C(J)
  171. 32000 [139]D[179]22[167]32400
  172. 32100 [139]D9[178]0[167]32400
  173. 32200 D[178]D[171]10
  174. 32300 D9[178]D9[171]1
  175. 32400 [142]
  176. 33300 [129]I[178]1[164]52
  177. 33400 P(I)[178]0
  178. 33500 D(I)[178]0
  179. 33600 [130]I
  180. 33700 [142]
  181. 33800 [129]I[178]1[164]52
  182. 33900 [153]C$(I)[170]S$(I);
  183. 34000 [130]I
  184. 34100 [153]
  185. 34600 [142]
  186. 36000 P5[178]0
  187. 36500 [153]"";
  188. 37000 [137]40000
  189. 39000 P5[178]1
  190. 40000 [129]L[178]1[164]8
  191. 40005 [139]M1[178]1[167]40020
  192. 40010 [129]I5[178]1[164]M1[171]1
  193. 40012 [153]"";
  194. 40015 [130]I5
  195. 40020 [139]P5[178]1[167]40050
  196. 40030 I[178]D(M1)
  197. 40040 [137]40200
  198. 40050 I[178]P(M1)
  199. 40200 [153]"";
  200. 40250 R[178]C(I)
  201. 40300 [139]L[177]1[167]40500
  202. 40400 [137]51000
  203. 40500 [139]L[177]2[167]42800
  204. 40600 [143]
  205. 40650 [139]C$(I)[178]"T"[167]41500
  206. 40700 [153][201](C$(I),1);S$(I);"     ";
  207. 40800 [137]55000
  208. 41500 [153]"10";S$(I);"    ";
  209. 42750 [137]55000
  210. 42800 [139]L[177]3[167]43400
  211. 42900 [139]C(I)[179]11[167]43000
  212. 42950 [137]51000
  213. 43000 [139]C(I)[177]2[167]43200
  214. 43100 [137]51000
  215. 43200 [139]C(I)[177]3[167]53000
  216. 43250 [137]52000
  217. 43400 [139]L[177]4[167]44200
  218. 43500 [139]C(I)[179]11[167]43650
  219. 43600 [137]52000
  220. 43650 [139]C(I)[179]9[167]43750
  221. 43700 [137]54000
  222. 43750 [139]C(I)[177]3[167]43850
  223. 43800 [137]52000
  224. 43850 [139]C(I)[177]4[167]43900
  225. 43880 [137]51000
  226. 43900 [139]C(I)[177]5[167]44000
  227. 43970 [137]52000
  228. 44000 [139]C(I)[177]6[167]44100
  229. 44070 [137]53000
  230. 44100 [139]C(I)[177]7[167]53000
  231. 44150 [137]52000
  232. 44200 [139]L[177]5[167]45100
  233. 44300 [139]C(I)[179]11[167]44500
  234. 44400 [137]51000
  235. 44500 [139]C(I)[179]10[167]44650
  236. 44550 [137]54000
  237. 44650 [139]C(I)[179]6[167]44800
  238. 44700 [137]53000
  239. 44800 [139]C(I)[179]4[167]44950
  240. 44850 [137]51000
  241. 44950 [137]52000
  242. 45100 [139]L[177]6[167]45900
  243. 45200 [139]C(I)[179]11[167]45350
  244. 45300 [137]51000
  245. 45350 [139]C(I)[179]7[167]45500
  246. 45400 [137]53000
  247. 45500 [139]C(I)[178]4[167]45700
  248. 45550 [139]C(I)[178]5[167]45700
  249. 45600 [137]51000
  250. 45700 [137]53000
  251. 45900 [139]L[177]7[167]48100
  252. 45950 [153]"    ";
  253. 45970 [139]C$(I)[178]"T"[167]46400
  254. 46000 [153]" ";S$(I);[201](C$(I),1);
  255. 46100 [137]55000
  256. 46400 [153]S$(I);"10";
  257. 48000 [137]55000
  258. 48100 [137]51000
  259. 51000 [153]"       ";
  260. 51050 [137]55000
  261. 52000 [153]"   ";S$(I);"   ";
  262. 52600 [137]55000
  263. 53000 [153]"  ";S$(I);" ";S$(I);"  ";
  264. 53700 [137]55000
  265. 54000 [153]"  ";S$(I);S$(I);S$(I);"  ";
  266. 55000 [153]
  267. 55150 [130]L
  268. 55200 [153]
  269. 55300 [142]
  270. 56000 [153]"       WAITFN"
  271. 56100 [153]"       WAITFN"
  272. 56200 [153]" WAITSTEP     WAITFN"
  273. 56300 [153]" WAIT   WAIT STEP WAITFN"
  274. 56400 [153]" WAIT   WAITTAB((null) WAITFN"
  275. 56500 [153]" (null)WAIT     WAITFN"
  276. 56600 [153]"       WAITFN"
  277. 56700 [153]"       WAITFN":[153]""
  278. 56800 [142]
  279. 57000 [153]"LOAD"
  280. 57050 F[178]15
  281. 57100 [153]DN$;[163]14);
  282. 57200 [129]I[178]1[164]30
  283. 57300 [153]"SYSWAITBLWAITACWAITKJWAITACWAITKCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  284. 57350 [129]J[178]1[164]F:[130]
  285. 57500 [153]"BWAITLAWAITCKWAITJAWAITCKCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  286. 57550 [129]J[178]1[164]F:[130]
  287. 57600 [130]
  288. 57700 [142]
  289.